<!--#INCLUDE FILE="inc/general.asp"-->
<%
'Set connACC = Server.CreateObject("ADODB.Connection")
'connACC.Open "eBLeACC"
	ISVENDEDOR=0
	ISCLIENTE=0
	JERARQUIA=""
	NOMBRE=""
	CODIGO=""
usuario = request("usuario") & ""
clave = request("clave") & ""


sql=       " SELECT * "
sql= sql & " FROM  VENDEDORES"
sql= sql & " WHERE VENDEDORES.NOMBRE = '" &  replace(CStr(usuario),"'","''")  
sql= sql & "' AND  VENDEDORES.ICLAVE = '" & replace(CStr(clave),"'","''")  
sql= sql & "'  "
rs.open sql, conn      'ACC
IF NOT RS.eof or NOT rs.BOF THEN 
	ISVENDEDOR=1
	JERARQUIA=rs("JERARQUIA")
'	RAZONSOCIAL=rs("RAZONSOCIAL")
	
	CODIGO=rs("CODIGO") & ""
	NOMBRE=rs("NOMBRE") & ""
	DIRECCION=rs("DIRECCION") & ""
	POBLACION=rs("POBLACION") & ""
	NIF=rs("NIF") & ""
	CODIPOS=rs("CODIPOS") & ""
	TELEFONO=rs("TELEFONO") & ""
	TELEFONO_2=rs("TELEFONO_2") & ""
	E_MAIL=rs("E_MAIL") & ""
	NOTAS=rs("NOTAS") & ""
	PROVINCIA=rs("PROVINCIA") & ""
	CUENTA=rs("CUENTA") & ""
	
	FPAGO=rs("FPAGO") & ""
	RE=rs("RE") & ""
	' IMP=rs("IMP") & ""
	DTO=rs("DTO") & ""
	AVISAR=rs("AVISAR") & ""
	CONTACO=rs("CONTACTO") & ""
	MARGEN=rs("MARGEN") & ""
	SERIE=rs("SERIE") & ""
'	IUSUARIO=rs("IUSUARIO") & ""
	ICLAVE=rs("ICLAVE") & ""

ELSE
	ISVENDEDOR=0
END IF	


rs.close
'*********************************************************
if ISVENDEDOR=0 then 
	sql=       " SELECT * "
	sql= sql & " FROM  CLIENTES "
	sql= sql & " WHERE CLIENTES.iusuario = '"& replace(CStr(usuario),"'","''")  & "' "
	sql= sql & " AND  CLIENTES.ICLAVE = '" & replace(CStr(clave),"'","''")    & "' "
	rs.open sql, conn       'ACC
	IF NOT RS.eof or NOT rs.BOF THEN 
		ISCLIENTE=1
	'	RAZONSOCIAL=rs("RAZONSOCIAL")
	''''DIASDECOBRO
		
		CODIGO=rs("CODIGO") & ""
		session("codCliente")=codigo
		NOMBRE=rs("NOMBRE") & ""
		session("cliente.DIRECCION")=rs("DIRECCION") & ""
		session("cliente.POBLACION")=rs("POBLACION") & ""
		session("cliente.NIF")=rs("NIF") & ""
		session("cliente.CODIPOS")=rs("CODIPOS") & ""
		session("cliente.TELEFONO")=rs("TELEFONO") & ""
		session("cliente.TELEFONO_2")=rs("TELEFONO_2") & ""
		session("cliente.E_MAIL")=rs("E_MAIL") & ""
		session("cliente.NOTAS")=rs("NOTAS") & ""
		session("cliente.PROVINCIA")=rs("PROVINCIA") & ""
		session("cliente.CUENTA")=rs("CUENTA") & ""
		session("cliente.FPAGO")=rs("FPAGO") & ""
		session("cliente.RE")=rs("RE") & ""
		session("cliente.IMP")=rs("IMP") & ""
		session("cliente.DTO")=rs("DTO") & ""
		session("cliente.AVISAR")=rs("AVISAR") & ""
		session("cliente.CONTACTO")=rs("CONTACTO") & ""
		session("cliente.COMERCIAL")=rs("COMERCIAL") & ""
		session("cliente.TARIFA")=rs("TARIFA") & ""
		session("cliente.SERIE")=rs("SERIE") & ""
'		session("cliente.ABONO")=rs("ABONO") & ""
		session("cliente.CAUCION")=rs("CAUCION") & ""
		session("cliente.IUSUARIO")=rs("IUSUARIO") & ""
		session("cliente.ICLAVE")=rs("ICLAVE") & ""
	ELSE
		ISCLIENTE=0
	END IF

rs.close
end if

''''''''''VENDEDORES------------------------------------------


'------SESSION("JERARQUIA")=JERARQUIA
if iscliente=1 then tipoUser="cliente"
if ISVENDEDOR=1 then tipoUser="vendedor"
If iscliente=0 AND ISVENDEDOR=0  then tipoUser="visita"

session("tipoUser")=tipoUser

SESSION("iscliente")=ISCLIENTE
SESSION("isvendedor")=ISVENDEDOR
SESSION("jerarquia")=JERARQUIA
session("nombre")=NOMBRE
session("codigoUser")=CODIGO
session("PedidoNuevo")="0"
session("AlbNuevo")="0"
RESPONSE.REDIRECT "index.asp"
%>